home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_20.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  476 b   |  26 lines
  1. on JumpClearAll
  2.   global JumpAmount, JumpList
  3.   deleteAll(JumpList)
  4.   set JumpList to [0]
  5.   set JumpAmount to 0
  6. end
  7.  
  8. on jump fr, fromFr
  9.   global JumpAmount, JumpList
  10.   ClrCursorS()
  11.   WaitCursor()
  12.   set JumpAmount to JumpAmount + 1
  13.   addAt(JumpList, JumpAmount, fromFr)
  14.   go(fr)
  15. end
  16.  
  17. on JumpBack
  18.   global JumpAmount, JumpList
  19.   ClrCursorS()
  20.   WaitCursor()
  21.   set fr to getAt(JumpList, JumpAmount)
  22.   deleteAt(JumpList, JumpAmount)
  23.   set JumpAmount to JumpAmount - 1
  24.   go(fr)
  25. end
  26.